VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "LDestino"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Dim dao As DAODestino
Private Const MODULO As String = "DESTINO"
'---------------------------------------------------------------------------------------
' Procedure : Class_Initialize
' DateTime  : 17/03/2008 23:48
' Author    :
' Purpose   : Inicializa los objetos de la clase
'---------------------------------------------------------------------------------------
'
Private Sub Class_Initialize()
Set dao = New DAODestino
End Sub
Public Function getLista(bean As bdestino) As Collection
Dim result As Collection
Set dao.Connection = utilConexion
Set result = dao.getLista(bean)
If Not result Is Nothing Then
    Set getLista = result
End If
End Function

